10 PRINT"[147]       DISKNAMEN UND -ID AENDERN        "
20 PRINT"MOECHTEN SIE:"
30 PRINT"-------------"
40 PRINT"(N)AMEN DER DISKETTE AENDERN"
50 PRINT"(I)D UND FORMATKENNUNG AENDERN"
60 PRINT"(P)ROGRAMM BEENDEN"
70 GETX$:IFX$=""THEN70
80 IF X$="N" THEN GOSUB200:RUN
90 IF X$="I" THEN GOSUB400:RUN
100 IF X$="P" THEN END
110 GOTO70
120 :
130 :
200 OPEN1,8,15,"I":OPEN2,8,2,"#"
210 PRINT#1,"U1 2 0 18 0"
220 PRINT#1,"B-P 2 144"
230 NA$=""
240 FOR I=1 TO 16
250 GET#2,A$:NA$=NA$+A$
260 NEXT
270 PRINT"AKTUELLER NAME: ";NA$
280 INPUT "    NEUER NAME";NA$
285 IF LEN(NA$)>16 THEN NA$=LEFT$(NA$,16)
290 IF LEN(NA$)<16 THEN NA$=NA$+CHR$(160):GOTO290
300 PRINT#1,"B-P 2 144"
310 PRINT#2,NA$;
320 PRINT#1,"U2 2 0 18 0"
330 PRINT#1,"I"
340 CLOSE1:CLOSE2:RETURN
350 :
360 :
400 OPEN1,8,15,"I":OPEN2,8,2,"#"
410 PRINT#1,"U1 2 0 18 0"
420 PRINT#1,"B-P 2 162"
430 ID$=""
440 FOR I=1 TO 16
450 GET#2,A$:ID$=ID$+A$
460 NEXT
470 PRINT"AKTUELLE ID:";ID$
480 INPUT "    NEUE ID";ID$
490 IF LEN(ID$)>5 THEN ID$=LEFT$(ID$,5)
500 PRINT#1,"B-P 2 162"
510 PRINT#2,ID$;
520 PRINT#1,"U2 2 0 18 0"
530 PRINT#1,"I"
540 CLOSE1:CLOSE2:RETURN